(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     31413,        648]
NotebookOptionsPosition[     30838,        626]
NotebookOutlinePosition[     31183,        641]
CellTagsIndexPosition[     31140,        638]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"citizens", " ", "=", " ", "100"}], ";", 
   RowBox[{"(*", 
    RowBox[{"*", " ", "consumers", " ", "per", " ", "type"}], " ", "**)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"firms", " ", "=", " ", "10"}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{"*", " ", "firms", " ", "per", " ", "type"}], " ", "**)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"alpha", " ", "=", " ", "6"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"beta", " ", "=", " ", "4"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"prefp", " ", "=", " ", "8"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"preff", " ", "=", " ", "2"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pp", " ", "=", " ", "1"}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{
    "*", " ", "Set", " ", "pizza", " ", "price", " ", "to", " ", "1"}], " ", 
    "**)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"lab", " ", "=", " ", 
    RowBox[{"citizens", " ", "*", " ", "10"}]}], ";"}], "\[IndentingNewLine]",
   "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "*", " ", "Consumer", " ", "demand", " ", "functions", " ", "for", " ", 
    "log", " ", "utility"}], " ", "**)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xps", " ", "=", 
    RowBox[{"prefp", "*", 
     RowBox[{"ws", " ", "/", " ", "pp"}]}]}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{"*", " ", 
     RowBox[{"ws", ":", " ", 
      RowBox[{"Swiss", " ", "wage"}]}]}], " ", "**)"}], "\[IndentingNewLine]", 
   RowBox[{"xfs", " ", "=", 
    RowBox[{"preff", "*", 
     RowBox[{"ws", " ", "/", " ", "pf"}]}]}], ";", 
   RowBox[{"(*", 
    RowBox[{"*", " ", 
     RowBox[{"pf", ":", " ", 
      RowBox[{"fondue", " ", "price"}]}]}], " ", "**)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"xpi", " ", "=", " ", 
    RowBox[{"prefp", "*", 
     RowBox[{"wi", " ", "/", " ", "pp"}]}]}], ";", 
   RowBox[{"(*", 
    RowBox[{"*", " ", 
     RowBox[{"wi", ":", " ", 
      RowBox[{"Italian", " ", "wage"}]}]}], " ", "**)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"xfi", " ", "=", " ", 
    RowBox[{"preff", "*", 
     RowBox[{"wi", " ", "/", " ", "pf"}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"*", " ", "Aggregate", " ", "consumer", " ", "demand"}], " ", 
   "**)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xp", " ", "=", " ", 
   RowBox[{"citizens", " ", "*", 
    RowBox[{"(", 
     RowBox[{"xps", " ", "+", " ", "xpi"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"xf", " ", "=", " ", 
    RowBox[{"citizens", " ", "*", 
     RowBox[{"(", 
      RowBox[{"xfs", " ", "+", " ", "xfi"}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"*", " ", "Labour", " ", "demand"}], " ", 
   "**)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq1", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"wi", "*", "lip"}], " ", ")"}], "/", " ", 
     RowBox[{"(", 
      RowBox[{"ws", " ", "*", " ", 
       RowBox[{"(", 
        RowBox[{"lab", "-", "lsf"}], ")"}]}], ")"}]}], "\[Equal]", " ", 
    RowBox[{"alpha", " ", "/", " ", "beta"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq2", " ", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ws", " ", "*", " ", "lsf"}], ")"}], "/", " ", 
      RowBox[{"(", 
       RowBox[{"wi", " ", "*", " ", 
        RowBox[{"(", 
         RowBox[{"lab", "-", "lip"}], ")"}]}], ")"}]}], "\[Equal]", " ", 
     RowBox[{"alpha", " ", "/", " ", "beta"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"resLip", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"eq1", ",", " ", "lip"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"resLsf", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"eq1", ",", " ", "lsf"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lsf", " ", "=", " ", 
   RowBox[{"lsf", "/.", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"eq2", "/.", " ", "resLip"}], ",", " ", "lsf"}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lip", " ", "=", " ", 
    RowBox[{"lip", "/.", 
     RowBox[{
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"eq2", "/.", " ", "resLsf"}], ",", " ", "lip"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"*", " ", "Production"}], " ", "**)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yp", " ", "=", " ", 
   RowBox[{"firms", " ", "*", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"alpha", " ", "*", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"lip", "/", "firms"}], "]"}]}], " ", "+", " ", 
      RowBox[{"beta", " ", "*", " ", 
       RowBox[{"Log", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"lab", " ", "-", " ", "lsf"}], ")"}], "/", "firms"}], 
        "]"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"yf", " ", "=", " ", 
    RowBox[{"firms", " ", "*", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"alpha", " ", "*", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"lsf", "/", "firms"}], "]"}]}], " ", "+", " ", 
       RowBox[{"beta", " ", "*", " ", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"lab", " ", "-", " ", "lip"}], ")"}], "/", "firms"}], 
         "]"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"*", " ", "Production", " ", "costs"}], " ", 
   "**)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cp", " ", "=", " ", 
   RowBox[{
    RowBox[{"lip", " ", "*", " ", "wi"}], " ", "+", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"lab", " ", "-", " ", "lsf"}], ")"}], " ", "*", " ", "ws"}]}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cf", " ", "=", " ", 
    RowBox[{
     RowBox[{"lsf", " ", "*", " ", "ws"}], " ", "+", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"lab", " ", "-", " ", "lip"}], ")"}], " ", "*", " ", 
      "wi"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"*", " ", "Multiple", " ", "ways", " ", "to", " ", "solve"}], " ", 
   "**)"}]}], "\[IndentingNewLine]", 
 RowBox[{"resw", " ", "=", " ", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"xp", "\[Equal]", "yp"}], ",", " ", 
      RowBox[{
       RowBox[{"pp", "*", "yp"}], "\[Equal]", "cp"}], ",", " ", 
      RowBox[{
       RowBox[{"pf", "*", "yf"}], " ", "\[Equal]", " ", "cf"}]}], "}"}], ",", 
    " ", 
    RowBox[{"{", 
     RowBox[{"ws", ",", " ", "0.5"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"wi", ",", " ", "0.5"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"pf", ",", " ", "0.5"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"resw", " ", "=", " ", 
   RowBox[{"FindRoot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"xp", "\[Equal]", "yp"}], ",", " ", 
       RowBox[{"xf", "\[Equal]", "yf"}], ",", " ", 
       RowBox[{
        RowBox[{"pf", "*", "yf"}], " ", "\[Equal]", " ", "cf"}]}], "}"}], ",",
      " ", 
     RowBox[{"{", 
      RowBox[{"ws", ",", " ", "0.5"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"wi", ",", " ", "0.5"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"pf", ",", " ", "0.5"}], "}"}]}], "]"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"wi", " ", "=", " ", 
   RowBox[{"wi", "/.", "resw"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ws", " ", "=", " ", 
   RowBox[{"ws", "/.", "resw"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pf", " ", "=", " ", 
    RowBox[{"pf", "/.", "resw"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"*", " ", "Verification"}], " ", "**)"}]}], "\[IndentingNewLine]", 
 RowBox[{"xp", "\[Equal]", "yp"}], "\[IndentingNewLine]", 
 RowBox[{"xf", "\[Equal]", "yf"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pp", " ", "*", " ", "yp"}], "\[Equal]", 
  "cp"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"pf", " ", "*", " ", "yf"}], "\[Equal]", "cf"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"util", "[", 
     RowBox[{"pizza_", ",", " ", "fondue_"}], "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{"prefp", " ", "*", " ", 
      RowBox[{"Log", "[", "pizza", "]"}]}], " ", "+", " ", 
     RowBox[{"preff", " ", "*", " ", 
      RowBox[{"Log", "[", "fondue", "]"}]}], " ", "+", " ", 
     RowBox[{"14", " ", "*", " ", 
      RowBox[{"Log", "[", "14", "]"}]}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"result", "  ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<Italian util\>\"", " ", ",", "  ", 
        RowBox[{"util", "[", 
         RowBox[{"xpi", ",", " ", "xfi"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<Swiss utility\>\"", ",", " ", 
        RowBox[{"util", "[", 
         RowBox[{"xps", ",", " ", "xfs"}], "]"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<Fondue price in pizzas\>\"", ",", " ", 
        RowBox[{"pf", "/", "pp"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<Swiss wage in pizzas\>\"", ",", " ", 
        RowBox[{"ws", "/", "pp"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<Italian wage in pizzas\>\"", ",", " ", 
        RowBox[{"wi", "/", "pp"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<Pizzas produced\>\"", ",", " ", "yp"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<Fondue produced\>\"", ",", "yf"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"\"\<Pizzas consumed\>\"", ",", " ", "xp"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{"\"\<Fondue consumed\>\"", ",", "xf"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{"\"\<Swiss hours worked\>\"", ",", " ", "lab"}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", " ", 
       RowBox[{"\"\<Italian hours worked\>\"", ",", " ", "lab"}], "}"}]}], 
     "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TableForm", "[", "result", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.612429290088133*^9, 3.612429319287939*^9}, {
   3.612429405156704*^9, 3.612429715331061*^9}, {3.6124298077750845`*^9, 
   3.61242984410268*^9}, {3.6124299364826436`*^9, 3.6124299964267263`*^9}, {
   3.6124300518334866`*^9, 3.6124300669198503`*^9}, {3.612430123580805*^9, 
   3.6124303089082785`*^9}, {3.6124303390699997`*^9, 3.612430370686104*^9}, {
   3.612458955252104*^9, 3.6124590233809795`*^9}, {3.6124590678973703`*^9, 
   3.6124591053450274`*^9}, {3.612459137218377*^9, 3.612459169243874*^9}, {
   3.6124605515050964`*^9, 3.612461053758356*^9}, {3.6124610890960035`*^9, 
   3.6124611737806416`*^9}, {3.612461282810466*^9, 3.6124612946487365`*^9}, {
   3.612461450406052*^9, 3.6124614804736853`*^9}, {3.6124615344941225`*^9, 
   3.612461616329049*^9}, {3.612461678899629*^9, 3.612461690316501*^9}, {
   3.6124617231137333`*^9, 3.612461732519689*^9}, {3.612461771086414*^9, 
   3.61246197876717*^9}, {3.6124620641554823`*^9, 3.612462091706713*^9}, 
   3.612462180625386*^9, {3.612462218825761*^9, 3.6124622189568853`*^9}, {
   3.6124622854732256`*^9, 3.612462363345377*^9}, {3.6124624322640023`*^9, 
   3.612462505010273*^9}, {3.612462682383174*^9, 3.61246302968188*^9}, {
   3.6124631296700916`*^9, 3.612463129956364*^9}, {3.612463196641861*^9, 
   3.612463222854824*^9}, {3.6124632747562456`*^9, 3.612463275054529*^9}, {
   3.61246336497215*^9, 3.6124634184300566`*^9}, {3.612463462516035*^9, 
   3.6124634633548336`*^9}, {3.6124634977275643`*^9, 
   3.6124635086709843`*^9}, {3.6124635673528633`*^9, 
   3.6124637246376333`*^9}, {3.6124637581575522`*^9, 
   3.6124638981318364`*^9}, {3.612463948997275*^9, 3.612464044416136*^9}, {
   3.6124641200071135`*^9, 3.612464122815789*^9}, {3.6124641556830854`*^9, 
   3.612464212710388*^9}, {3.6124642893523703`*^9, 3.612464340768329*^9}, {
   3.6125905059135294`*^9, 3.6125905296321144`*^9}, {3.612595147578435*^9, 
   3.612595158866184*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ws", "\[Rule]", "0.2411914057104378`"}], ",", 
   RowBox[{"wi", "\[Rule]", "0.30697087999510264`"}], ",", 
   RowBox[{"pf", "\[Rule]", "0.35977667977356514`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6124295971014795`*^9, 3.612429666382449*^9}, 
   3.6124297158795805`*^9, 3.6124297989596925`*^9, 3.6124298508701224`*^9, 
   3.6124299400049996`*^9, {3.612429978723866*^9, 3.6124299991222925`*^9}, {
   3.6124300566030273`*^9, 3.612430067290203*^9}, 3.612430141867216*^9, {
   3.6124302349728746`*^9, 3.612430263788313*^9}, {3.6124303111794405`*^9, 
   3.612430340364229*^9}, 3.6124303711945887`*^9, 3.6124585181769094`*^9, 
   3.612458892445298*^9, 3.612458980162825*^9, {3.6124590120221615`*^9, 
   3.6124590250085278`*^9}, {3.612459089288737*^9, 3.6124591066843014`*^9}, 
   3.612459143991826*^9, {3.612460729846918*^9, 3.6124607478060193`*^9}, {
   3.6124609047985106`*^9, 3.612460942252175*^9}, 3.612460979532674*^9, 
   3.6124610256385775`*^9, 3.6124610580814686`*^9, 3.6124610933080125`*^9, 
   3.6124611749037094`*^9, 3.612461300685484*^9, {3.61246154365985*^9, 
   3.612461556059658*^9}, {3.612461610402404*^9, 3.6124616177944436`*^9}, {
   3.612461679838524*^9, 3.6124616910261765`*^9}, 3.612461723883462*^9, {
   3.6124618588029375`*^9, 3.6124618712798176`*^9}, 3.612461906915753*^9, {
   3.6124619467396727`*^9, 3.612461979365741*^9}, {3.6124620695085773`*^9, 
   3.6124620924434147`*^9}, 3.612462181824527*^9, 3.612462220067943*^9, 
   3.6124622883069224`*^9, 3.6124623207378035`*^9, 3.6124623707464237`*^9, 
   3.612462477024623*^9, 3.6124626165865173`*^9, 3.6124627285331163`*^9, 
   3.612462758991119*^9, {3.612462814679147*^9, 3.6124628804858093`*^9}, {
   3.6124629877759743`*^9, 3.6124630303915534`*^9}, 3.6124631307661333`*^9, {
   3.612463201057065*^9, 3.6124632239748898`*^9}, 3.6124632793386073`*^9, {
   3.612463411061036*^9, 3.6124634191237144`*^9}, 3.612463464154594*^9, {
   3.612463499246017*^9, 3.612463509652918*^9}, {3.6124635717160163`*^9, 
   3.6124637277195663`*^9}, {3.612463758565937*^9, 3.6124638988595304`*^9}, 
   3.612463951991123*^9, {3.612464035710843*^9, 3.6124640452068844`*^9}, {
   3.6124641295732203`*^9, 3.6124641889897995`*^9}, {3.612464310888875*^9, 
   3.6124643411837225`*^9}, 3.6125874656124754`*^9, {3.612590522355182*^9, 
   3.6125905303337793`*^9}, 3.612590638633904*^9, 3.61259309849925*^9, 
   3.612595397078024*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"ws", "\[Rule]", "0.2411914057104378`"}], ",", 
   RowBox[{"wi", "\[Rule]", "0.30697087999510264`"}], ",", 
   RowBox[{"pf", "\[Rule]", "0.35977667977356526`"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.6124295971014795`*^9, 3.612429666382449*^9}, 
   3.6124297158795805`*^9, 3.6124297989596925`*^9, 3.6124298508701224`*^9, 
   3.6124299400049996`*^9, {3.612429978723866*^9, 3.6124299991222925`*^9}, {
   3.6124300566030273`*^9, 3.612430067290203*^9}, 3.612430141867216*^9, {
   3.6124302349728746`*^9, 3.612430263788313*^9}, {3.6124303111794405`*^9, 
   3.612430340364229*^9}, 3.6124303711945887`*^9, 3.6124585181769094`*^9, 
   3.612458892445298*^9, 3.612458980162825*^9, {3.6124590120221615`*^9, 
   3.6124590250085278`*^9}, {3.612459089288737*^9, 3.6124591066843014`*^9}, 
   3.612459143991826*^9, {3.612460729846918*^9, 3.6124607478060193`*^9}, {
   3.6124609047985106`*^9, 3.612460942252175*^9}, 3.612460979532674*^9, 
   3.6124610256385775`*^9, 3.6124610580814686`*^9, 3.6124610933080125`*^9, 
   3.6124611749037094`*^9, 3.612461300685484*^9, {3.61246154365985*^9, 
   3.612461556059658*^9}, {3.612461610402404*^9, 3.6124616177944436`*^9}, {
   3.612461679838524*^9, 3.6124616910261765`*^9}, 3.612461723883462*^9, {
   3.6124618588029375`*^9, 3.6124618712798176`*^9}, 3.612461906915753*^9, {
   3.6124619467396727`*^9, 3.612461979365741*^9}, {3.6124620695085773`*^9, 
   3.6124620924434147`*^9}, 3.612462181824527*^9, 3.612462220067943*^9, 
   3.6124622883069224`*^9, 3.6124623207378035`*^9, 3.6124623707464237`*^9, 
   3.612462477024623*^9, 3.6124626165865173`*^9, 3.6124627285331163`*^9, 
   3.612462758991119*^9, {3.612462814679147*^9, 3.6124628804858093`*^9}, {
   3.6124629877759743`*^9, 3.6124630303915534`*^9}, 3.6124631307661333`*^9, {
   3.612463201057065*^9, 3.6124632239748898`*^9}, 3.6124632793386073`*^9, {
   3.612463411061036*^9, 3.6124634191237144`*^9}, 3.612463464154594*^9, {
   3.612463499246017*^9, 3.612463509652918*^9}, {3.6124635717160163`*^9, 
   3.6124637277195663`*^9}, {3.612463758565937*^9, 3.6124638988595304`*^9}, 
   3.612463951991123*^9, {3.612464035710843*^9, 3.6124640452068844`*^9}, {
   3.6124641295732203`*^9, 3.6124641889897995`*^9}, {3.612464310888875*^9, 
   3.6124643411837225`*^9}, 3.6125874656124754`*^9, {3.612590522355182*^9, 
   3.6125905303337793`*^9}, 3.612590638633904*^9, 3.61259309849925*^9, 
   3.6125953970810165`*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.6124295971014795`*^9, 3.612429666382449*^9}, 
   3.6124297158795805`*^9, 3.6124297989596925`*^9, 3.6124298508701224`*^9, 
   3.6124299400049996`*^9, {3.612429978723866*^9, 3.6124299991222925`*^9}, {
   3.6124300566030273`*^9, 3.612430067290203*^9}, 3.612430141867216*^9, {
   3.6124302349728746`*^9, 3.612430263788313*^9}, {3.6124303111794405`*^9, 
   3.612430340364229*^9}, 3.6124303711945887`*^9, 3.6124585181769094`*^9, 
   3.612458892445298*^9, 3.612458980162825*^9, {3.6124590120221615`*^9, 
   3.6124590250085278`*^9}, {3.612459089288737*^9, 3.6124591066843014`*^9}, 
   3.612459143991826*^9, {3.612460729846918*^9, 3.6124607478060193`*^9}, {
   3.6124609047985106`*^9, 3.612460942252175*^9}, 3.612460979532674*^9, 
   3.6124610256385775`*^9, 3.6124610580814686`*^9, 3.6124610933080125`*^9, 
   3.6124611749037094`*^9, 3.612461300685484*^9, {3.61246154365985*^9, 
   3.612461556059658*^9}, {3.612461610402404*^9, 3.6124616177944436`*^9}, {
   3.612461679838524*^9, 3.6124616910261765`*^9}, 3.612461723883462*^9, {
   3.6124618588029375`*^9, 3.6124618712798176`*^9}, 3.612461906915753*^9, {
   3.6124619467396727`*^9, 3.612461979365741*^9}, {3.6124620695085773`*^9, 
   3.6124620924434147`*^9}, 3.612462181824527*^9, 3.612462220067943*^9, 
   3.6124622883069224`*^9, 3.6124623207378035`*^9, 3.6124623707464237`*^9, 
   3.612462477024623*^9, 3.6124626165865173`*^9, 3.6124627285331163`*^9, 
   3.612462758991119*^9, {3.612462814679147*^9, 3.6124628804858093`*^9}, {
   3.6124629877759743`*^9, 3.6124630303915534`*^9}, 3.6124631307661333`*^9, {
   3.612463201057065*^9, 3.6124632239748898`*^9}, 3.6124632793386073`*^9, {
   3.612463411061036*^9, 3.6124634191237144`*^9}, 3.612463464154594*^9, {
   3.612463499246017*^9, 3.612463509652918*^9}, {3.6124635717160163`*^9, 
   3.6124637277195663`*^9}, {3.612463758565937*^9, 3.6124638988595304`*^9}, 
   3.612463951991123*^9, {3.612464035710843*^9, 3.6124640452068844`*^9}, {
   3.6124641295732203`*^9, 3.6124641889897995`*^9}, {3.612464310888875*^9, 
   3.6124643411837225`*^9}, 3.6125874656124754`*^9, {3.612590522355182*^9, 
   3.6125905303337793`*^9}, 3.612590638633904*^9, 3.61259309849925*^9, 
   3.6125953970840206`*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.6124295971014795`*^9, 3.612429666382449*^9}, 
   3.6124297158795805`*^9, 3.6124297989596925`*^9, 3.6124298508701224`*^9, 
   3.6124299400049996`*^9, {3.612429978723866*^9, 3.6124299991222925`*^9}, {
   3.6124300566030273`*^9, 3.612430067290203*^9}, 3.612430141867216*^9, {
   3.6124302349728746`*^9, 3.612430263788313*^9}, {3.6124303111794405`*^9, 
   3.612430340364229*^9}, 3.6124303711945887`*^9, 3.6124585181769094`*^9, 
   3.612458892445298*^9, 3.612458980162825*^9, {3.6124590120221615`*^9, 
   3.6124590250085278`*^9}, {3.612459089288737*^9, 3.6124591066843014`*^9}, 
   3.612459143991826*^9, {3.612460729846918*^9, 3.6124607478060193`*^9}, {
   3.6124609047985106`*^9, 3.612460942252175*^9}, 3.612460979532674*^9, 
   3.6124610256385775`*^9, 3.6124610580814686`*^9, 3.6124610933080125`*^9, 
   3.6124611749037094`*^9, 3.612461300685484*^9, {3.61246154365985*^9, 
   3.612461556059658*^9}, {3.612461610402404*^9, 3.6124616177944436`*^9}, {
   3.612461679838524*^9, 3.6124616910261765`*^9}, 3.612461723883462*^9, {
   3.6124618588029375`*^9, 3.6124618712798176`*^9}, 3.612461906915753*^9, {
   3.6124619467396727`*^9, 3.612461979365741*^9}, {3.6124620695085773`*^9, 
   3.6124620924434147`*^9}, 3.612462181824527*^9, 3.612462220067943*^9, 
   3.6124622883069224`*^9, 3.6124623207378035`*^9, 3.6124623707464237`*^9, 
   3.612462477024623*^9, 3.6124626165865173`*^9, 3.6124627285331163`*^9, 
   3.612462758991119*^9, {3.612462814679147*^9, 3.6124628804858093`*^9}, {
   3.6124629877759743`*^9, 3.6124630303915534`*^9}, 3.6124631307661333`*^9, {
   3.612463201057065*^9, 3.6124632239748898`*^9}, 3.6124632793386073`*^9, {
   3.612463411061036*^9, 3.6124634191237144`*^9}, 3.612463464154594*^9, {
   3.612463499246017*^9, 3.612463509652918*^9}, {3.6124635717160163`*^9, 
   3.6124637277195663`*^9}, {3.612463758565937*^9, 3.6124638988595304`*^9}, 
   3.612463951991123*^9, {3.612464035710843*^9, 3.6124640452068844`*^9}, {
   3.6124641295732203`*^9, 3.6124641889897995`*^9}, {3.612464310888875*^9, 
   3.6124643411837225`*^9}, 3.6125874656124754`*^9, {3.612590522355182*^9, 
   3.6125905303337793`*^9}, 3.612590638633904*^9, 3.61259309849925*^9, 
   3.6125953970860233`*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.6124295971014795`*^9, 3.612429666382449*^9}, 
   3.6124297158795805`*^9, 3.6124297989596925`*^9, 3.6124298508701224`*^9, 
   3.6124299400049996`*^9, {3.612429978723866*^9, 3.6124299991222925`*^9}, {
   3.6124300566030273`*^9, 3.612430067290203*^9}, 3.612430141867216*^9, {
   3.6124302349728746`*^9, 3.612430263788313*^9}, {3.6124303111794405`*^9, 
   3.612430340364229*^9}, 3.6124303711945887`*^9, 3.6124585181769094`*^9, 
   3.612458892445298*^9, 3.612458980162825*^9, {3.6124590120221615`*^9, 
   3.6124590250085278`*^9}, {3.612459089288737*^9, 3.6124591066843014`*^9}, 
   3.612459143991826*^9, {3.612460729846918*^9, 3.6124607478060193`*^9}, {
   3.6124609047985106`*^9, 3.612460942252175*^9}, 3.612460979532674*^9, 
   3.6124610256385775`*^9, 3.6124610580814686`*^9, 3.6124610933080125`*^9, 
   3.6124611749037094`*^9, 3.612461300685484*^9, {3.61246154365985*^9, 
   3.612461556059658*^9}, {3.612461610402404*^9, 3.6124616177944436`*^9}, {
   3.612461679838524*^9, 3.6124616910261765`*^9}, 3.612461723883462*^9, {
   3.6124618588029375`*^9, 3.6124618712798176`*^9}, 3.612461906915753*^9, {
   3.6124619467396727`*^9, 3.612461979365741*^9}, {3.6124620695085773`*^9, 
   3.6124620924434147`*^9}, 3.612462181824527*^9, 3.612462220067943*^9, 
   3.6124622883069224`*^9, 3.6124623207378035`*^9, 3.6124623707464237`*^9, 
   3.612462477024623*^9, 3.6124626165865173`*^9, 3.6124627285331163`*^9, 
   3.612462758991119*^9, {3.612462814679147*^9, 3.6124628804858093`*^9}, {
   3.6124629877759743`*^9, 3.6124630303915534`*^9}, 3.6124631307661333`*^9, {
   3.612463201057065*^9, 3.6124632239748898`*^9}, 3.6124632793386073`*^9, {
   3.612463411061036*^9, 3.6124634191237144`*^9}, 3.612463464154594*^9, {
   3.612463499246017*^9, 3.612463509652918*^9}, {3.6124635717160163`*^9, 
   3.6124637277195663`*^9}, {3.612463758565937*^9, 3.6124638988595304`*^9}, 
   3.612463951991123*^9, {3.612464035710843*^9, 3.6124640452068844`*^9}, {
   3.6124641295732203`*^9, 3.6124641889897995`*^9}, {3.612464310888875*^9, 
   3.6124643411837225`*^9}, 3.6125874656124754`*^9, {3.612590522355182*^9, 
   3.6125905303337793`*^9}, 3.612590638633904*^9, 3.61259309849925*^9, 
   3.612595397088025*^9}],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.6124295971014795`*^9, 3.612429666382449*^9}, 
   3.6124297158795805`*^9, 3.6124297989596925`*^9, 3.6124298508701224`*^9, 
   3.6124299400049996`*^9, {3.612429978723866*^9, 3.6124299991222925`*^9}, {
   3.6124300566030273`*^9, 3.612430067290203*^9}, 3.612430141867216*^9, {
   3.6124302349728746`*^9, 3.612430263788313*^9}, {3.6124303111794405`*^9, 
   3.612430340364229*^9}, 3.6124303711945887`*^9, 3.6124585181769094`*^9, 
   3.612458892445298*^9, 3.612458980162825*^9, {3.6124590120221615`*^9, 
   3.6124590250085278`*^9}, {3.612459089288737*^9, 3.6124591066843014`*^9}, 
   3.612459143991826*^9, {3.612460729846918*^9, 3.6124607478060193`*^9}, {
   3.6124609047985106`*^9, 3.612460942252175*^9}, 3.612460979532674*^9, 
   3.6124610256385775`*^9, 3.6124610580814686`*^9, 3.6124610933080125`*^9, 
   3.6124611749037094`*^9, 3.612461300685484*^9, {3.61246154365985*^9, 
   3.612461556059658*^9}, {3.612461610402404*^9, 3.6124616177944436`*^9}, {
   3.612461679838524*^9, 3.6124616910261765`*^9}, 3.612461723883462*^9, {
   3.6124618588029375`*^9, 3.6124618712798176`*^9}, 3.612461906915753*^9, {
   3.6124619467396727`*^9, 3.612461979365741*^9}, {3.6124620695085773`*^9, 
   3.6124620924434147`*^9}, 3.612462181824527*^9, 3.612462220067943*^9, 
   3.6124622883069224`*^9, 3.6124623207378035`*^9, 3.6124623707464237`*^9, 
   3.612462477024623*^9, 3.6124626165865173`*^9, 3.6124627285331163`*^9, 
   3.612462758991119*^9, {3.612462814679147*^9, 3.6124628804858093`*^9}, {
   3.6124629877759743`*^9, 3.6124630303915534`*^9}, 3.6124631307661333`*^9, {
   3.612463201057065*^9, 3.6124632239748898`*^9}, 3.6124632793386073`*^9, {
   3.612463411061036*^9, 3.6124634191237144`*^9}, 3.612463464154594*^9, {
   3.612463499246017*^9, 3.612463509652918*^9}, {3.6124635717160163`*^9, 
   3.6124637277195663`*^9}, {3.612463758565937*^9, 3.6124638988595304`*^9}, 
   3.612463951991123*^9, {3.612464035710843*^9, 3.6124640452068844`*^9}, {
   3.6124641295732203`*^9, 3.6124641889897995`*^9}, {3.612464310888875*^9, 
   3.6124643411837225`*^9}, 3.6125874656124754`*^9, {3.612590522355182*^9, 
   3.6125905303337793`*^9}, 3.612590638633904*^9, 3.61259309849925*^9, 
   3.612595397090026*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"Italian util\"\>", "45.20314896383464`"},
    {"\<\"Swiss utility\"\>", "42.791528395665765`"},
    {"\<\"Fondue price in pizzas\"\>", "0.35977667977356526`"},
    {"\<\"Swiss wage in pizzas\"\>", "0.2411914057104378`"},
    {"\<\"Italian wage in pizzas\"\>", "0.30697087999510264`"},
    {"\<\"Pizzas produced\"\>", "438.5298285644322`"},
    {"\<\"Fondue produced\"\>", "304.7236335887809`"},
    {"\<\"Pizzas consumed\"\>", "438.5298285644323`"},
    {"\<\"Fondue consumed\"\>", "304.723633588781`"},
    {"\<\"Swiss hours worked\"\>", "1000"},
    {"\<\"Italian hours worked\"\>", "1000"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.6124295971014795`*^9, 3.612429666382449*^9}, 
   3.6124297158795805`*^9, 3.6124297989596925`*^9, 3.6124298508701224`*^9, 
   3.6124299400049996`*^9, {3.612429978723866*^9, 3.6124299991222925`*^9}, {
   3.6124300566030273`*^9, 3.612430067290203*^9}, 3.612430141867216*^9, {
   3.6124302349728746`*^9, 3.612430263788313*^9}, {3.6124303111794405`*^9, 
   3.612430340364229*^9}, 3.6124303711945887`*^9, 3.6124585181769094`*^9, 
   3.612458892445298*^9, 3.612458980162825*^9, {3.6124590120221615`*^9, 
   3.6124590250085278`*^9}, {3.612459089288737*^9, 3.6124591066843014`*^9}, 
   3.612459143991826*^9, {3.612460729846918*^9, 3.6124607478060193`*^9}, {
   3.6124609047985106`*^9, 3.612460942252175*^9}, 3.612460979532674*^9, 
   3.6124610256385775`*^9, 3.6124610580814686`*^9, 3.6124610933080125`*^9, 
   3.6124611749037094`*^9, 3.612461300685484*^9, {3.61246154365985*^9, 
   3.612461556059658*^9}, {3.612461610402404*^9, 3.6124616177944436`*^9}, {
   3.612461679838524*^9, 3.6124616910261765`*^9}, 3.612461723883462*^9, {
   3.6124618588029375`*^9, 3.6124618712798176`*^9}, 3.612461906915753*^9, {
   3.6124619467396727`*^9, 3.612461979365741*^9}, {3.6124620695085773`*^9, 
   3.6124620924434147`*^9}, 3.612462181824527*^9, 3.612462220067943*^9, 
   3.6124622883069224`*^9, 3.6124623207378035`*^9, 3.6124623707464237`*^9, 
   3.612462477024623*^9, 3.6124626165865173`*^9, 3.6124627285331163`*^9, 
   3.612462758991119*^9, {3.612462814679147*^9, 3.6124628804858093`*^9}, {
   3.6124629877759743`*^9, 3.6124630303915534`*^9}, 3.6124631307661333`*^9, {
   3.612463201057065*^9, 3.6124632239748898`*^9}, 3.6124632793386073`*^9, {
   3.612463411061036*^9, 3.6124634191237144`*^9}, 3.612463464154594*^9, {
   3.612463499246017*^9, 3.612463509652918*^9}, {3.6124635717160163`*^9, 
   3.6124637277195663`*^9}, {3.612463758565937*^9, 3.6124638988595304`*^9}, 
   3.612463951991123*^9, {3.612464035710843*^9, 3.6124640452068844`*^9}, {
   3.6124641295732203`*^9, 3.6124641889897995`*^9}, {3.612464310888875*^9, 
   3.6124643411837225`*^9}, 3.6125874656124754`*^9, {3.612590522355182*^9, 
   3.6125905303337793`*^9}, 3.612590638633904*^9, 3.61259309849925*^9, 
   3.612595397094029*^9}]
}, Open  ]]
},
WindowSize->{707, 816},
WindowMargins->{{Automatic, 233}, {Automatic, -3}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 13150, 342, 1492, "Input"],
Cell[13732, 366, 2428, 35, 31, "Output"],
Cell[16163, 403, 2430, 35, 31, "Output"],
Cell[18596, 440, 2229, 30, 31, "Output"],
Cell[20828, 472, 2229, 30, 31, "Output"],
Cell[23060, 504, 2227, 30, 31, "Output"],
Cell[25290, 536, 2227, 30, 31, "Output"],
Cell[27520, 568, 3302, 55, 247, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
